(viper-file-checked-in-p): Call vc-state instead of vc-locking-user,

which no longer exists.

diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index 393dc4d527650e3abac9ab879a595ac40347e217..a36478f06524cde447e304b7d8684bfc6f8b4807 100644 (file)
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -684,7 +684,8 @@
   (and (featurep 'vc-hooks)
        ;; CVS files are considered not checked in
        (not (memq (vc-backend file) '(nil CVS)))
-       (not (vc-locking-user file))))
+       (not (memq (vc-state file) '(edited needs-merge)))
+       (not (stringp (vc-state file)))))
 
 ;; checkout if visited file is checked in
 (defun viper-maybe-checkout (buf)